home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / 4dostool / tfc22c.zip / FIX.PAS < prev    next >
Pascal/Delphi Source File  |  1993-11-03  |  2KB  |  127 lines
  1. { This unit prevents TV from Resetting the screen mode at start up
  2.   thus allowing to work with resolutions like 100x40 
  3.  
  4.  
  5.  
  6.  
  7.        __                   Robert Juhasz | University of Paderborn
  8.         \_\                  Ludwigstr. 16 | Department of Maths & CS
  9.           __                4790 Paderborn | Fachbereich 17
  10.     _____ \ \                      Germany |
  11.    / /___)_\ \                             |
  12.   /_/ \_\ \___)   robertj@uni-paderborn.de |}
  13.  
  14. unit Fix;
  15. interface
  16.  
  17. uses
  18.   dos;
  19.  
  20. procedure InitFix;
  21. procedure DoneFix;
  22.  
  23. implementation
  24.  
  25. var
  26.   OldInt10,
  27.   OldExit  : Pointer;
  28.   VMode    : Byte absolute $0:$449;   { BIOS video mode }
  29.  
  30. const
  31.   Installed: Boolean = false;
  32.  
  33. procedure ChainInt(OldInt:Pointer);
  34. inline($5b/$58/             
  35.        $89/$ec/         
  36.        $87/$46/$10/     
  37.        $87/$5e/$0e/     
  38.        $5d/$07/$1f/     
  39.        $5f/$5e/$5a/$59/ 
  40.        $cb);            
  41.  
  42. procedure FixMode(ax,bx,cx,dx,si,di,ds,es,bp:Word);Interrupt;
  43. begin
  44.   if Hi(ax)=0 then ax:=Word( VMode );
  45.   ChainInt(OldInt10)
  46. end;
  47.  
  48. procedure InitFix;
  49. begin
  50.   if not Installed
  51.   then begin
  52.     Installed := true;
  53.     GetIntVec($10,OldInt10);
  54.     SetIntVec($10,@FixMode)
  55.   end
  56. end;
  57.  
  58. procedure DoneFix;
  59. begin
  60.   if Installed
  61.   then begin
  62.     Installed := false;
  63.     SetIntVec($10,OldInt10)
  64.   end
  65. end;
  66.  
  67. procedure AtExit; far;
  68. begin
  69.   ExitProc := OldExit;
  70.   DoneFix
  71. end;
  72.  
  73. begin
  74.   OldExit  := ExitProc;
  75.   ExitProc := @AtExit;
  76. end.
  77.  
  78.  
  79.  
  80. {   Use it like the next demo:
  81.  
  82.  
  83. {USEFIX.PAS}
  84. program USEFIX;
  85. uses
  86.   Dos, Objects, App, Fix;
  87. var
  88.   MyApp: TApplication;
  89.  
  90. (*
  91.  *  GetArgs: Commando-Zeile.
  92.  *)
  93.  
  94. function GetArgs: PString;
  95. const
  96.   S: String = '';
  97. begin
  98.   S := String( Ptr(PrefixSeg,$80)^ );  { lieber kopieren }
  99.   GetArgs := @S;
  100. end;
  101.  
  102. begin
  103.   InitFix;          { Fix ist nur wdhrend der }
  104.    MyApp.Init;      { Initialisierung aktiv!  }
  105.   DoneFix;
  106.   MyApp.Run;
  107.   MyApp.Done;
  108.  
  109. (*
  110.   {Alternativ:}
  111.   if (GetEnv('FIX')<>'') or
  112.      ( Pos('/F', GetArgs^)<>0 ) or
  113.      ( Pos('/f', GetArgs^)<>0 )
  114.   then
  115.     InitFix;
  116.   MyApp.Init;
  117.   DoneFix;
  118.  
  119.   MyApp.Run;
  120.   MyApp.Done;
  121. *)
  122. end.
  123. }
  124.  
  125.  
  126.  
  127.